Software of the Month Club 1996 June

home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / DEMOAPP / PROC27.PRO < prev next >
Unknown | 1995-11-22 | 2.4 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	MSX Protracker Module `(music/msxProtrackerModule)`	ext	Unsupported
`1%`	dexvert	Show Partner Mastered Show `(other/showPartnerMasteredShow)`	ext	Unsupported
`100%`	file	data	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 45 00 44 65 63 6c 61 72 | 65 20 4f 75 74 70 75 74 |E.Declar|e Output|
|00000010| 20 46 69 65 6c 64 73 0d | 0a 20 20 20 43 75 73 74 | Fields.|.   Cust|
|00000020| 6f 6d 65 72 73 2e 4e 61 | 6d 65 20 3a 20 63 75 73 |omers.Na|me : cus|
|00000030| 74 6f 6d 65 72 73 2e 66 | 69 6c 65 0d 0a 20 20 20 |tomers.f|ile..   |
|00000040| 72 69 67 68 74 63 75 73 | 74 3a 72 69 67 68 74 66 |rightcus|t:rightf|
|00000050| 69 6c 65 3a 70 61 67 65 | 20 6e 75 6d 62 65 72 20 |ile:page| number |
|00000060| 3a 6c 61 73 74 0d 0a 65 | 6e 64 0d 0a 27 2e 2e 2e |:last..e|nd..'...|
|00000070| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 0d 0a |........|........|
|00000080| 64 65 63 6c 61 72 65 20 | 76 61 72 69 61 62 6c 65 |declare |variable|
|00000090| 73 0d 0a 20 20 20 78 20 | 61 73 20 6e 75 6d 62 65 |s..   x |as numbe|
|000000a0| 72 20 3a 79 20 61 73 20 | 6e 75 6d 62 65 72 3a 65 |r :y as |number:e|
|000000b0| 6e 64 20 61 73 20 6e 75 | 6d 62 65 72 3a 63 6f 70 |nd as nu|mber:cop|
|000000c0| 69 65 73 20 61 73 20 6e | 75 6d 62 65 72 0d 0a 65 |ies as n|umber..e|
|000000d0| 6e 64 0d 0a 27 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |nd..'...|........|
|000000e0| 2e 2e 2e 2e 2e 2e 2e 67 | 65 74 20 74 6f 74 61 6c |.......g|et total|
|000000f0| 20 72 65 63 6f 72 64 73 | 20 66 6f 72 20 64 69 73 | records| for dis|
|00000100| 70 6c 61 79 0d 0a 66 6f | 72 20 43 75 73 74 6f 6d |play..fo|r Custom|
|00000110| 65 72 73 20 57 69 74 68 | 20 4e 61 6d 65 20 69 6e |ers With| Name in|
|00000120| 20 6f 72 64 65 72 0d 0a | 20 20 20 79 20 3d 20 63 | order..|   y = c|
|00000130| 75 73 74 6f 6d 65 72 73 | 2e 74 6f 74 61 6c 20 72 |ustomers|.total r|
|00000140| 65 63 6f 72 64 73 0d 0a | 20 20 20 65 78 69 74 20 |ecords..|   exit |
|00000150| 66 6f 72 0d 0a 6e 65 78 | 74 0d 0a 27 2e 2e 2e 2e |for..nex|t..'....|
|00000160| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 75 70 64 |........|.....upd|
|00000170| 61 74 65 20 73 6f 72 74 | 20 66 69 65 6c 64 2e 2e |ate sort| field..|
|00000180| 2e 2e 2e 0d 0a 69 6e 64 | 65 78 20 6f 66 66 0d 0a |.....ind|ex off..|
|00000190| 66 6f 72 20 43 75 73 74 | 6f 6d 65 72 73 20 57 69 |for Cust|omers Wi|
|000001a0| 74 68 20 4e 61 6d 65 20 | 69 6e 20 6f 72 64 65 72 |th Name |in order|
|000001b0| 0d 0a 20 20 20 78 20 3d | 20 78 20 2b 20 31 0d 0a |..   x =| x + 1..|
|000001c0| 20 20 20 64 69 73 70 6c | 61 79 20 73 74 61 74 75 |   displ|ay statu|
|000001d0| 73 20 22 53 6f 72 74 69 | 6e 67 20 43 75 73 74 6f |s "Sorti|ng Custo|
|000001e0| 6d 65 72 20 46 69 6c 65 | 20 52 65 63 6f 72 64 22 |mer File| Record"|
|000001f0| 2b 20 78 20 2b 20 22 6f | 66 22 20 2b 20 79 0d 0a |+ x + "o|f" + y..|
|00000200| 20 20 20 63 75 73 74 6f | 6d 65 72 73 2e 73 6f 72 |   custo|mers.sor|
|00000210| 74 20 3d 20 78 0d 0a 20 | 20 20 75 70 64 61 74 65 |t = x.. |  update|
|00000220| 20 72 65 63 6f 72 64 0d | 0a 6e 65 78 74 0d 0a 27 | record.|.next..'|
|00000230| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|00000240| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|00000250| 0d 0a 6e 6c 71 20 6f 6e | 0d 0a 64 6f 0d 0a 20 20 |..nlq on|..do..  |
|00000260| 20 78 20 3d 20 30 3a 6c | 61 73 74 20 3d 20 30 20 | x = 0:l|ast = 0 |
|00000270| 3a 70 61 67 65 20 6e 75 | 6d 62 65 72 20 3d 20 31 |:page nu|mber = 1|
|00000280| 20 3a 65 6e 64 20 3d 20 | 30 0d 0a 20 20 20 63 6f | :end = |0..   co|
|00000290| 70 69 65 73 20 3d 20 63 | 6f 70 69 65 73 20 2b 20 |pies = c|opies + |
|000002a0| 31 0d 0a 20 20 20 69 66 | 20 6f 75 74 70 75 74 20 |1..   if| output |
|000002b0| 3c 3e 20 22 70 72 69 6e | 74 65 72 22 20 61 6e 64 |<> "prin|ter" and|
|000002c0| 20 63 6f 70 69 65 73 20 | 3d 20 32 20 74 68 65 6e | copies |= 2 then|
|000002d0| 20 65 78 69 74 20 64 6f | 0d 0a 20 20 20 69 66 20 | exit do|..   if |
|000002e0| 6f 75 74 70 75 74 20 3d | 20 22 70 72 69 6e 74 65 |output =| "printe|
|000002f0| 72 22 20 61 6e 64 20 63 | 6f 70 69 65 73 20 3d 20 |r" and c|opies = |
|00000300| 69 6e 70 75 74 2e 63 6f | 70 69 65 73 20 2b 20 31 |input.co|pies + 1|
|00000310| 20 74 68 65 6e 20 65 78 | 69 74 20 64 6f 0d 0a 20 | then ex|it do.. |
|00000320| 20 20 62 6f 6c 64 20 6f | 6e 3a 20 70 72 69 6e 74 |  bold o|n: print|
|00000330| 20 70 61 67 65 20 68 65 | 61 64 65 72 3a 62 6f 6c | page he|ader:bol|
|00000340| 64 20 6f 66 66 0d 0a 20 | 20 20 64 6f 0d 0a 20 20 |d off.. |  do..  |
|00000350| 20 20 20 20 66 6f 72 20 | 63 75 73 74 6f 6d 65 72 |    for |customer|
|00000360| 73 20 77 69 74 68 20 53 | 6f 72 74 20 3e 20 6c 61 |s with S|ort > la|
|00000370| 73 74 20 6e 6f 20 6c 6f | 63 6b 0d 0a 20 20 20 20 |st no lo|ck..    |
|00000380| 20 20 20 20 78 20 3d 20 | 78 20 2b 20 31 0d 0a 20 |    x = |x + 1.. |
|00000390| 20 20 20 20 20 20 20 66 | 6f 72 20 63 75 73 74 6f |       f|or custo|
|000003a0| 6d 65 72 73 20 61 6c 69 | 61 73 20 63 6f 6c 32 20 |mers ali|as col2 |
|000003b0| 77 69 74 68 20 73 6f 72 | 74 20 3d 20 63 75 73 74 |with sor|t = cust|
|000003c0| 6f 6d 65 72 73 2e 73 6f | 72 74 20 2b 20 35 30 20 |omers.so|rt + 50 |
|000003d0| 6e 6f 20 6c 6f 63 6b 0d | 0a 20 20 20 20 20 20 20 |no lock.|.       |
|000003e0| 20 20 20 20 72 69 67 68 | 74 63 75 73 74 20 3d 20 |    righ|tcust = |
|000003f0| 63 6f 6c 32 2e 6e 61 6d | 65 20 3a 72 69 67 68 74 |col2.nam|e :right|
|00000400| 66 69 6c 65 20 3d 20 63 | 6f 6c 32 2e 66 69 6c 65 |file = c|ol2.file|
|00000410| 20 3a 20 6c 61 73 74 20 | 3d 20 63 6f 6c 32 2e 73 | : last |= col2.s|
|00000420| 6f 72 74 0d 0a 20 20 20 | 20 20 20 20 20 6e 65 78 |ort..   |     nex|
|00000430| 74 0d 0a 20 20 20 20 20 | 20 20 20 70 72 69 6e 74 |t..     |   print|
|00000440| 20 6c 69 73 74 20 69 74 | 65 6d 73 0d 0a 20 20 20 | list it|ems..   |
|00000450| 20 20 20 20 20 69 66 20 | 72 69 67 68 74 63 75 73 |     if |rightcus|
|00000460| 74 20 3d 20 62 6c 61 6e | 6b 20 74 68 65 6e 20 65 |t = blan|k then e|
|00000470| 6e 64 20 3d 20 31 0d 0a | 20 20 20 20 20 20 20 20 |nd = 1..|        |
|00000480| 72 69 67 68 74 63 75 73 | 74 20 3d 20 62 6c 61 6e |rightcus|t = blan|
|00000490| 6b 3a 72 69 67 68 74 66 | 69 6c 65 20 3d 20 62 6c |k:rightf|ile = bl|
|000004a0| 61 6e 6b 0d 0a 20 20 20 | 20 20 20 20 20 69 66 20 |ank..   |     if |
|000004b0| 6d 6f 64 28 78 2c 35 30 | 29 20 3d 20 30 20 74 68 |mod(x,50|) = 0 th|
|000004c0| 65 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 69 |en..    |       i|
|000004d0| 66 20 65 6e 64 20 3d 20 | 30 20 74 68 65 6e 0d 0a |f end = |0 then..|
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 62 6f |        |      bo|
|000004f0| 6c 64 20 6f 6e 3a 20 70 | 72 69 6e 74 20 70 61 67 |ld on: p|rint pag|
|00000500| 65 20 66 6f 6f 74 65 72 | 0d 0a 20 20 20 20 20 20 |e footer|..      |
|00000510| 20 20 20 20 20 20 20 20 | 70 61 67 65 20 66 65 65 |        |page fee|
|00000520| 64 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d..     |        |
|00000530| 20 70 72 69 6e 74 20 70 | 61 67 65 20 68 65 61 64 | print p|age head|
|00000540| 65 72 20 3a 62 6f 6c 64 | 20 6f 66 66 0d 0a 20 20 |er :bold| off..  |
|00000550| 20 20 20 20 20 20 20 20 | 20 65 6e 64 20 69 66 0d |        | end if.|
|00000560| 0a 20 20 20 20 20 20 20 | 20 20 20 20 65 78 69 74 |.       |    exit|
|00000570| 20 66 6f 72 0d 0a 20 20 | 20 20 20 20 20 20 65 6e | for..  |      en|
|00000580| 64 20 69 66 0d 0a 20 20 | 20 20 20 20 6e 65 78 74 |d if..  |    next|
|00000590| 0d 0a 20 20 20 20 20 20 | 69 66 20 65 6e 64 20 3d |..      |if end =|
|000005a0| 20 31 20 74 68 65 6e 20 | 65 78 69 74 20 64 6f 0d | 1 then |exit do.|
|000005b0| 0a 20 20 20 6c 6f 6f 70 | 0d 0a 20 20 20 27 2e 2e |.   loop|..   '..|
|000005c0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000005d0| 2e 2e 2e 64 6f 20 6c 61 | 73 74 20 70 61 67 65 20 |...do la|st page |
|000005e0| 6e 75 6d 62 65 72 20 69 | 66 20 70 72 69 6e 74 65 |number i|f printe|
|000005f0| 64 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 0d 0a 20 20 |d.......|......  |
|00000600| 20 62 6f 6c 64 20 6f 6e | 0d 0a 20 20 20 69 66 20 | bold on|..   if |
|00000610| 62 6f 74 74 6f 6d 20 6d | 61 72 67 69 6e 20 3c 20 |bottom m|argin < |
|00000620| 31 2e 35 20 74 68 65 6e | 0d 0a 20 20 20 20 20 20 |1.5 then|..      |
|00000630| 70 72 69 6e 74 20 70 61 | 67 65 20 66 6f 6f 74 65 |print pa|ge foote|
|00000640| 72 3a 70 61 67 65 20 66 | 65 65 64 20 3a 20 65 78 |r:page f|eed : ex|
|00000650| 69 74 20 70 72 6f 63 65 | 64 75 72 65 0d 0a 20 20 |it proce|dure..  |
|00000660| 20 65 6e 64 20 69 66 0d | 0a 20 20 20 64 6f 0d 0a | end if.|.   do..|
|00000670| 20 20 20 20 20 20 6c 69 | 6e 65 20 66 65 65 64 0d |      li|ne feed.|
|00000680| 0a 20 20 20 20 20 20 69 | 66 20 62 6f 74 74 6f 6d |.      i|f bottom|
|00000690| 20 6d 61 72 67 69 6e 20 | 3c 20 31 2e 35 20 74 68 | margin |< 1.5 th|
|000006a0| 65 6e 20 65 78 69 74 20 | 64 6f 0d 0a 20 20 20 6c |en exit |do..   l|
|000006b0| 6f 6f 70 0d 0a 20 20 20 | 70 72 69 6e 74 20 70 61 |oop..   |print pa|
|000006c0| 67 65 20 66 6f 6f 74 65 | 72 20 3a 20 70 61 67 65 |ge foote|r : page|
|000006d0| 20 66 65 65 64 0d 0a 6c | 6f 6f 70 0d 0a 0d 0a 0d | feed..l|oop.....|
|000006e0| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 0d 0a 0d 0a 0e |........|........|
|000006f0| 00 2e 50 61 67 65 20 48 | 65 61 64 65 72 0d 0a 20 |..Page H|eader.. |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000710| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 4c 49 45 |        |    CLIE|
|00000720| 4e 54 20 46 49 4c 45 20 | 4c 49 53 54 0d 0a 20 20 |NT FILE |LIST..  |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 c4 c4 c4 c4 c4 |        |   .....|
|00000750| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 0d 0a 0d 0a 2e |........|........|
|00000760| 4c 69 73 74 20 49 74 65 | 6d 73 0d 0a 0d 0a 2e 50 |List Ite|ms.....P|
|00000770| 61 67 65 20 46 6f 6f 74 | 65 72 0d 0a 0d 0a 0d 0a |age Foot|er......|
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007a0| 20 20 20 2d 20 20 20 20 | 2d 0d 0a 2e 45 6e 64 0d |   -    |-...End.|
|000007b0| 0a 0d 0a 0d 0a 0d 0a 06 | 00 06 00 08 00 19 00 19 |........|........|
|000007c0| 00 01 00 43 75 73 74 6f | 6d 65 72 73 2e 4e 61 6d |...Custo|mers.Nam|
|000007d0| 65 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e       |        |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 32 35 20 20 01 |        |   25  .|
|000007f0| 00 4e 6f 20 54 65 78 74 | 20 20 20 20 20 20 20 20 |.No Text|        |
|00000800| 20 20 06 00 22 00 04 00 | 04 00 01 00 63 75 73 74 |  .."...|....cust|
|00000810| 6f 6d 65 72 73 2e 66 69 | 6c 65 20 20 20 20 20 20 |omers.fi|le      |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000830| 20 20 20 20 20 34 20 20 | 02 00 4e 6f 20 54 65 78 |     4  |..No Tex|
|00000840| 74 20 20 20 20 20 20 20 | 20 20 20 06 00 2d 00 19 |t       |   ..-..|
|00000850| 00 19 00 01 00 72 69 67 | 68 74 63 75 73 74 20 20 |.....rig|htcust  |
|00000860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 32 35 20 |        |     25 |
|00000880| 20 03 00 4e 6f 20 54 65 | 78 74 20 20 20 20 20 20 | ..No Te|xt      |
|00000890| 20 20 20 20 06 00 47 00 | 03 00 03 00 01 00 72 69 |    ..G.|......ri|
|000008a0| 67 68 74 66 69 6c 65 20 | 20 20 20 20 20 20 20 20 |ghtfile |        |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008c0| 20 20 20 20 20 20 20 33 | 20 20 04 00 4e 6f 20 54 |       3|  ..No T|
|000008d0| 65 78 74 20 20 20 20 20 | 20 20 20 20 20 0a 00 26 |ext     |     ..&|
|000008e0| 00 02 00 08 00 01 00 70 | 61 67 65 20 6e 75 6d 62 |.......p|age numb|
|000008f0| 65 72 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |er      |        |
|00000900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000910| 32 20 20 05 00 59 65 73 | 49 6e 74 65 67 65 72 20 |2  ..Yes|Integer |
|00000920| 20 20 20 20 20 20 0d 00 | 01 00 03 00 08 00 01 00 |      ..|........|
|00000930| 6c 61 73 74 20 20 20 20 | 20 20 20 20 20 20 20 20 |last    |        |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000950| 20 20 20 20 20 20 20 20 | 20 33 20 20 06 00 4e 6f |        | 3  ..No|
|00000960| 20 49 6e 74 65 67 65 72 | 20 20 20 20 20 20 20 03 | Integer|       .|
|00000970| 00 46 69 6c 65 20 49 6e | 64 65 78 20 20 20 20 20 |.File In|dex     |
|00000980| 20 20 20 20 20          |                         |        |        |
+--------+-------------------------+-------------------------+--------+--------+